home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / AREAC&TF.cpt / •AC&TF• test... / card_68411.txt < prev    next >
Text File  |  1992-03-13  |  3KB  |  135 lines
  1. -- card: 68411 from stack: in.
  2. -- bmap block id: 71925
  3. -- flags: 0000
  4. -- background id: 72532
  5. -- name: Title Card
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=23 top=214 right=279 bottom=123
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Personalize
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   repeat forever
  23.     ask "Please enter your area code."
  24.     if the number of chars in it <> 3 and it is not empty then
  25.       answer "The area code must be a three digit number." with "Ooops"
  26.     else
  27.       exit repeat
  28.     end if
  29.   end repeat
  30.   if the number of chars in it = 3 then
  31.     set the name of bg button 1 of first card of bg "Main" to "Your Area Code:" && it
  32.     if not AreaCodeChanged(it) then
  33.       answer "Sorry, can't find that Area Code." with "OK"
  34.       answer "Click the Personalize button to try again" with "OK"
  35.     end if
  36.   end if
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 2 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=130 top=215 right=276 bottom=236
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Help
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   go card "Help"
  56. end mouseUp
  57.  
  58.  
  59.  
  60. -- part 3 (button)
  61. -- low flags: 00
  62. -- high flags: 2000
  63. -- rect: left=242 top=215 right=280 bottom=349
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: FIND
  72. ----- HyperTalk script -----
  73.  
  74. on mouseUp
  75.   Ask "Find what?"
  76.   if it is not empty and the result is not "Cancel" then
  77.     put it into findString
  78.     put "Find " & quote & findString & quote into msg
  79.     find findString
  80.     if the result is not empty then
  81.       answer findString && "not found."
  82.     end if
  83.   end if
  84. end mouseUp
  85.  
  86.  
  87. -- part 4 (button)
  88. -- low flags: 00
  89. -- high flags: 0000
  90. -- rect: left=364 top=256 right=287 bottom=485
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Credits
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   go to card "Credits"
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 8 (button)
  107. -- low flags: 00
  108. -- high flags: A000
  109. -- rect: left=10 top=8 right=55 bottom=35
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 3071 / 3071
  112. -- text alignment: 1
  113. -- font id: 3
  114. -- text size: 10
  115. -- style flags: 256
  116. -- line height: 13
  117. -- part name: Quit
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   doMenu "Quit HyperCard"
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part contents for background part 1
  126. ----- text -----
  127. Friday, March 13, 1992
  128.  
  129. -- part contents for background part 3
  130. ----- text -----
  131. -8
  132.  
  133. -- part contents for background part 5
  134. ----- text -----
  135. DST